home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 87xx / 8708a.d64 / disk-optim. ii (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  1KB  |  39 lines
  1. 10 S=664:MA=50:BA=1184:AZ=0:G=0:GE=0:K=0:Z=0:X=0:Y=0:V=0
  2. 20 DIMF%(MA):GOTO80
  3. 30 :
  4. 40 PRINT"[147]DISK-OPTIMIZER II":PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]
  5. 50 [153]"BY MARKUS NAEHER":[142]
  6. 60 :
  7. 70 [143]  *** EINLESEN ***
  8. 80 [141]40:[153]"LAENGEN DER PROGRAMME EINGEBEN":[129]X[178]0[164]MA
  9. 90 [153]X[170]1"CMD. PROGRAMM ";:[133]F%(X):[139]F%(X)[177][178]S[167][153]"ONON":[137]90
  10. 100 [139]F%(X)[179]0[167]X[178]X[171]1:[153]"ONONON":[137]90
  11. 110 [139]F%(X)[179][177]0[167][130]
  12. 120 AZ[178]X[171]1
  13. 130 :
  14. 140 [143]  *** VON GROSS NACH KLEIN ORDNEN ***
  15. 150 [129]X[178]0[164]AZ[171]1:G[178]0:[129]Y[178]X[164]AZ:[139]F%(Y)[177]G[167]G[178]F%(Y):GE[178]Y
  16. 160 [130]:F%(GE)[178]F%(X):F%(X)[178]G:[130]
  17. 170 [141]40:[129]X[178]0[164]AZ:[153]" "F%(X),:[130]:[153]"
  18. 180 :
  19. 190 REM  *** SUCHE NACH KOMBINATIONEN ***
  20. 200 OPEN1,4:PRINT#1,"DISK-OPTIMIZER II":DIMK%(AZ*10,AZ),P%(AZ)
  21. 210 FORZ=1TOAZ-1:FORX=0TOZ:P%(X)=X:NEXT:V=Z
  22. 220 REM ** AUSGABE DER MOMENTANEN KONFIGURATION **
  23. 230 FORX=P%(V)-1TOAZ:POKEBA+10*X,32:NEXT:FORX=0TOZ:POKEBA+10*P%(X),42:NEXT
  24. 240 REM ** TESTEN, OB AKTUELLE KOMBINATION ALS SUMME S ERGIBT, DANN AUSGABE **
  25. 250 G=0:FORX=0TOZ:G=G+F%(P%(X)):NEXT:PRINT"SUMME :"G"[157]   [145]":IFG<>SGOTO270
  26. 260 FORX=0TOZ:K%(K,P%(X))=1:PRINT#1,F%(P%(X));:NEXT:PRINT#1:K=K+1:GOTO290
  27. 270 IFG<SANDV=0GOTO320
  28. 280 REM ** NAECHSTE KOMBINATION ERMITTELN **
  29. 290 FORX=ZTO0STEP-1:IFP%(X)=AZ-Z+XTHENNEXT:GOTO320
  30. 300 V=X:P%(V)=P%(V)+1:IFX<ZTHENFORX=V+1TOZ:P%(X)=P%(X-1)+1:NEXT
  31. 310 GOTO230
  32. 320 G=0:FORX=0TOZ+1:G=G+F%(AZ-X):NEXT:IFG<STHENNEXTZ
  33. 330 IFG=STHENFORX=AZ-Z-1TOAZ:K%(K,X)=1:PRINT#1,F%(X);:NEXT:PRINT#1:K=K+1
  34. 340 :
  35. 350 REM *** AUSGABE DER KOMBINATIONEN ALS TABELLE ***
  36. 360 IFK=0THENCLOSE1:END
  37. 370 FORX=0TOAZ:PRINT#1,RIGHT$("      "+STR$(F%(X)),LEN(STR$(F%(0))));
  38. 380 FORY=0TOK-1:PRINT#1,CHR$(46-4*K%(Y,X));:NEXT:PRINT#1:NEXT:CLOSE1
  39.